home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 September / EnigmA AMIGA RUN 30 (1998)(G.R. Edizioni)(IT)[!][issue 1998-09].iso / earkit / ftp / gui-ftp / rexx / getrecent.rexx < prev    next >
OS/2 REXX Batch file  |  1998-07-09  |  711b  |  31 lines
  1. /* REXX */
  2. /*
  3. ** An ARexx script to start Gui-FTP, connect to Aminet and get the file
  4. ** 'RECENT'
  5. */
  6.  
  7. parse upper arg PORTNAME
  8.  
  9. options results
  10.  
  11. if PORTNAME = "" then do
  12.     PORTNAME = "GUIFTP1"        /* set default portname */
  13. end
  14.  
  15. address command
  16. "run ftp:gui-ftp"               /* start Gui-FTP */
  17. "waitforport" PORTNAME          /* wait for it to initialise */
  18.  
  19. if RC = 0 then do               /* program started OK */
  20.     address guiftp1             /* pass future commands to Gui-FTP */
  21.     open 'wuarchive.wustl.edu dir /aminet'  /* connect to aminet */
  22.     get 'RECENT'                /* get recent uploads */
  23.     /*
  24.     ** put commands to download other files here
  25.     */
  26. end
  27. else do
  28.     say "Port" PORTNAME "not found"
  29. end
  30.  
  31.